all_na <- function(x) any(!is.na(x))